home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEV / I-Z / RA.cpt / Tower of Hanoi.ra < prev    next >
Text File  |  1986-10-17  |  668b  |  57 lines
  1. |
  2. |   RA™
  3. |
  4. |    TOWER OF HANOI
  5. |
  6. |   © 1986 COM~LINK & S.Koren
  7. | 
  8. ≈
  9. #M;
  10. 300 150 ∫
  11. ("!How many disks? " ? D: D. ! "!"
  12.  D. 0 > D. 5 < ¥ ~
  13. #H,D.,"Left","Right","Middle";)
  14. #A;
  15. ≈
  16. "THE END."
  17.  
  18. $
  19. &A
  20. "Hit any key: " ?§ µ @`
  21. |
  22. |  Main subroutine
  23. |
  24. &H
  25.   1% D:
  26.   D. 1 = [#Z,2%,3%; ` ]
  27.   D. 1 - D :
  28.   #H,D.,2%,4%,3%;
  29.   #Z,2%,3%;
  30.   #H,D.,4%,3%,2%; `
  31. |
  32. |  Subroutine for output
  33. |
  34. &Z
  35.     "Move " 1% " to " 2% "!" `
  36.  
  37. |
  38. |  RA title routine
  39. |
  40. &M @ #L; 8 A: ( #N; A. 1 - A: A. 0 > ~ ) #L; #O; #P;`
  41.  
  42. &O
  43. 40 100 Ω
  44. "RA™"
  45. 60 45 Ω 
  46. "© 1986 COM~LINK & S.Koren" 
  47. 80 60 Ω
  48. "All rights reserved." `
  49.  
  50. &L
  51. 35 A: ("•" A. 1 - A: A. 0 > ~ ) "!"`
  52.  
  53. &N
  54. "•" 33 A: (" " A. 1 - A: A. 0 > ~ ) "•" "!"`
  55.  
  56. &P ?§ @ `
  57. $